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DISP 


DECUS Program Library Write-up 


DECUS No. 8-193 


ABSTRACT 

DISP provides a simple means of using the 34D Display with 
FORTRAN-D. It allows the operator to display varying numbers 
of points with movable X and Y axes. 

USAGE 

The use of DISP is illustrated in the following example: 

C;-EXAMPLE OF USE OF DISP 

DIMENSION IX (1) ,IY(l) rNP(l) ,NX(100) ,NY (100) 

PAUSE 3873 

C;- SET X-Y AXIS ORIGIN AT CENTER SCREEN 

IX=500 

IY=400 

3 TYPE 2 

2 FORMAT (//'TYPE IN NP, LESS THAN 100") 

ACCEPT 4, NP 

4 FORMAT (I) 

ENP=NP 

DO 10 K=1,NP 
X=K 

NX(K)=X*1000./ENP 
NY(K)=NX(K) 

10 CONTINUE 

PAUSE 4017 
GO TO 3 

END 

IX(1)/ IY(1) give the coordinates for the zero point of the 
X and Y axes. IX=0, IY=0, puts the axis origin at the lower 
left corner of the scope face; IX=500, IY=400, puts the axis 
origin at the midscreen. 

NP(1) gives the number of points to be displayed. In the 
example given, it can range from 1 to 100. 

NX(100), NY(100), give the pairs of points to be displayed. 











These may be DIMENSIONED to any size the user wishes, as 
long as it is greater than approximately 45 each. 

This DIMENSION statement must be the first statement of the 
program. DISP searches for it to obtain the data needed for 
the display. 

PAUSE 3873 should immediately follow the DIMENSION statement. 
The PAUSE 3873 transfers control to the part of DISP starting 
at *7441. This moves the display portion of DISP to the top 
page of core, and leaves all the lowef pages available for 
program and data. This destroys FORTRAN-D's Disk READ/WRITE 
option (e.g., READ 3 , 10 , ALPA, is illegal) but this feature 
seemed expendable. A user who needs this feature.could 
relocate the display section over the ARCTAN routine, if he 
so desired. 

PAUSE 4)317 transfers control to the display section of DISP. 
The (X, Y) pairs and the axes will be displayed until the user 
types either a CTRL/P or a CTRL/C. CTRL/P will return control 
to the first FORTRAN statement following the PAUSE 4)317 (in 
this case, the GO TO 3 statement). CTRL/C will transfer 
control to a four-location bootstrap and call in the disk 
monitor. 

For the four-location bootstrap to work, location 200 of disk 
0 must be 5200 . This can easily be done using the program 
DISKLOOK (DECUS No. 8-111), or by fixing the system builder 
before loading begins. Changing location 200 of disk 0 does 
not affect the operation of the system in any way. 

The calling sequence for DISP is: 

.FORT 

*OUT-S:F 

* 

*IN-R: 

* t 

t 

.DISP 

t 

*READY 





ADD 

7 57 1 

ADD* 

0710 

AURESX 

7574 

ADRESY 

7 57 5 

BREAK 

7551 

CONT 

7 460 

COUNT 

7567 

C200A 

6503 

C203 

6701 

data 

7 550 

UlSPX 

7474 

DISPY 

7510 

OX 

7 56 5 

DXL 

6053 

oxs 

6057 

dy 

7566 

DYL 

6063 

dys 

6067 

ENDS 

2332 

ENDS 1 

07 22 

ERROR 

0647 

ERR1 

0701 

FLGCHK 

7 537 

GRID 

7 466 

WORD 

0707 

HTEST 

0672 

ID 

7570 

LIST 

07 31 

LOC 

7576 

LOOP 

7525 

MCTRLP 

7564 

M ON I T R 

0712 

MONRET 

0131 

MOVE 

7 441 

MOV El 

0725 

M 1 1 30 

07 1 5 

M 1 1 31 

0716 

M 1620 

0717 

Ml 630 

0713 

M 1 6 31 

0714 

M203 

6702 

M6000 

0720 

M7 400 

0721 

NP 

7 573 

PROG 

7 557 

P2604 

07 l 1 

P5377 

7 561 

SLAP 

001 1 

START 

7461 

STMT 

0727 

SVSRSN 

0127 

TEMP 

0726 

JOP 

7 560 





TP 1 07&M 

TP2 0705 

IP3 0706 

TYPE 0664 

w0R u 07 30 

XLOC 0723 

X S £ T 7 562 

YLOC 0724 

YORlG 7572 

YSET 7563 


/S*G. WEL L C OME - TRINITY COLLEGE 
/ "Dl SP" - A PROGRAM TO PROVIDE OSCILLI SCOPE 
/DISPLAY CAPABILITY IN FORTRAN-D. 

/PARTS Are BORROWED FROM DEC-D8-AFA5-LA. 

/ 

/CALLING SEQUENCE: SAME AS FORTRAN-D SYMBOLPRINT 
/ 

/ERRJR CODES: 

/TILT - COMPILER NOT IN CORE 

/TILT #2 - PRO6• CALLS FOR DISK rFAD/V RITE 
/TILT #3 - IMPROPER DIMENSION STATEMENT 

/TILT £4 " NY<K> STORAGE LIMIT > *MOvE 


/ 

*600 


0600 

6046 


TLS 


0601 

7200 


CLA 


060? 

1131 


I AD 

MON RET 

0 60 3 

1 70 4 


TAD 

I TP 1 

0604 

1 705 


TAD 

I TP2 

060 5 

1 706 


TAD 

I TP 3 

0606 

7 6 40 


S/A 

CLA 

0607 

5301 

/ 

JMP 

ERR 1 



/ 



06 1 0 

1 7?7 


TAD 

I STMT 

061 1 

1 3?0 


TAD 

M6 000 

06 1? 

7 700 


SMA 

CLA 

0613 

43 47 


JMS 

ERROR 

061 4 

036? 


262 



/ 

/ 


0615 

1315 

TAD 

M 1 1 30 

0 616 

42 72 

JMS 

HTEST 

0617 

1316 

TAD 

M 1 1 3 1 

0630 

4272 

JM S 

HTEST 

06? 1 

1317 

TAD 

M 1 620 

063? 

4272 

JMS 

HTEST 

0 6? 3 

1313 

TAD 

M 1 630 

0 6? 4 

42 72 

JMS 

HTEST 

063 5 

1314 

TAD 

Ml 631 

0 6? 6 

427 2 

/ 

JMS 

HTEST 

06? 7 

/ 

1 325 

TAD 

MOVE 1 

0 6 30 

7041 

CIA 


0631 

1711 

tad 

I P2604 

0 6 3? 

7700 

SMA 

CLA 

0633 

4247 

JM S 

ErrOr 

06 3 4 

0264 

264 



/IS COMPILER IN CORE? 

/DID PROG* '’DEFINE DISK”? 

/PROPER "DIMENSION” STATEMENT 


/iSi Y <K ) LIMIT BELOW *MOVE? 

4 




/ 

/ 


0635 

0636 

0637 


06 40 
0641 
064? 
0643 
0644 
0645 
0646 


0647 
06 50 
0651 
06 5? 
0653 
0 6 54 
0655 
0656 
0657 
0660 
0661 
066? 
0663 

0664 
066 5 
0666 
0667 
0670 
067 1 

067? 
0673 
0674 
067 5 
0676 
0677 
0700 

0701 
07 0 ? 
0703 


1247 


TAD ERROR 


7640 


SZA CLA 

/WERE THERE ERRORS? 

57 1 ? 


JMP 1 MONITR 

/YES-ABANDON SHIP 


/ 

^ -'v. 



/ 




/OK# 

NOW GET S•A• OF 

NX*NY STORAGE 


/ 



1710 


TAD I ADDS 


2310 


ISZ ADDR, 


3 7? 3 


DCA 1 XLOG v 


1710 


TAD I A DDR 


3724 


DCA I YLOC 


4537 


JMS 1 SVSRSN 

/BAIL OIJT » LOAD FO.SL 

001 1 


SLAP 



/ 




/ 



0000 


> 0 


1 330 


TAL> WORD 


3326 


DCA TEMP 


1726 


TAD 1 TtMP 


2326 


ISZ TEMP 


7 450 


SNA 


5260 


JMP .+3 


426 4 


JMS TYPE 


525? 


JMP .-5 


1647 


TAD I ERROR 


2247 


iSZ ERROR 


4264 


JMS TYPE 


5647 


JMP I ERROR 



/ 



0000 

TYPfc# 

0 


6041 


TSF 


5365 


JMP .-1 


6046 


TLS 


7200 


CLA 


566 4 


jmp i type 



/ 



0000 

H TESI. 

* 0 


1707 


TAD 1 HORD 


2307 


ISZ HORO 


7 640 


SZA CLA 


4247 


JMS Error 


0263 


263 


567 2 


JMP I HTEST 



/ 



4247 

ERR 1 # 

JMS ERROR 


0261 


261 


57 1 ? 


JMP 1 MONITR 



/ 

/ 


/CONSTANTS 

/ 

M0NRET=131 
SLAP= 1 1 
fc.NUS=?33? 
C?00A= 6 50 3 
C?03=6701 
M?03=670? 
SVSRSN=127 






/ 


0 7 0 4 

6 503 

IPli 

C200A 


0705 

6701 

T P2» 

0203 


0704 

6702 

TP 3* 

M 20 3 


0707 

2400 

H 0 R D » 

2 400 


07 10 

2603 

ADDR* 

2603 


07 1 1 

260 4 

P260 4* 

260 4 


0 7 1? 

7600 

MONITR* 

7 600 


07 1 3 

6 1 50 

M1630* 

- 1 630 


07 1 4 

6147 

M1631* 

- 1 631 


07 1 5 

6650 

Ml 130* 

- 1 1 30 


07 16 

6647 

M1131* 

- 1 1 31 


07 1 7 

6160 

M 1 620* 

- 1 620 


0 7 

2000 

M 6 0 0 0 » 

-6000 


07 21 

0 400 

M 7 4 0 0 * 

-7400 


0722 

2332 

ENDS 1 * 

ENDS 


0723 

7 57 4 

X L 0 C * 

ADRESX 


0724 

7575 

YLOC* 

ADRESY 


0725 

7441 

MOVEl* 

MOVE 


07 26 

0000 

TEMP* 

0 


0727 

1002 

STMT* 

1 00? 


07 30 

0731 

WORD* 

LIST 


07 31 

021 5 

LIST* 

215 


0732 

02 1 2 


2 1 2 


0733 

0324 


324 

/ 7 

0734 

031 1 


31 1 

/I 

07 33* 

0314 


314 

/L 

0 7 36 

0324 


324 

/T 

07 37 

0240 


? 40 


■0 7 40 

0243 


243 

/* 

07 41 

0000 


0 



/ 

/ 

/ 

*1441 




/PUT 

DISPLAY SECT. OVER 

MONI TOR 

7441 

0000 


0 




/ 


/ AC=0 

7 4 42 

661 5 

/ 

D EAL 

/SET XTENDED REGISTERS 



/ 


/SO MINI-BOOTSTRAP WILL 

7 443 

1 361 

/ 

TAD P 5377 

/FOSL CLOBBERS *75771 

7 444 

3377 


DCA LOC+1 

/FIX IT UP... 

7 4/i5 

1 7 57 


TAD I PROG 


7 446 

3760 


DCA I TOP 


7 4 47 

2357 


ISZ PROG 


7 4 50 

2360 


ISZ TOP 


7 451 

2260 


ISZ CONT 


7 4 52 

52 45 


JMP .-5 


7 4 53 

700 1 


I AC 

/THEN RESTORE IT 

7 454 

3377 


DCA LOC+1 


7 455 

1346 


TAD DATA-2 

/FIX UP *7600 

7 456 

3673 

/ 

DCA 1 DlSPX-1 


7 457 

5641 


JMP I MOVE 


7 460 

7661 

CJNT* 

START-7600 



/ 

/ 

/ 


6 





7 461 
7 46? 


mm 

1 7 50 


START, 


0 

TAD 


I DATA 


7 463 3365 

DCA DX 

7464 177? 

TAD I YORj 

7465 3366 

DCA DY 

7466 136? GRID, 

TAD XSET 

7 467 3367 

DCA COUNT 

7470 3370 

DCA ID 

7471 1366 

TAD DY 

747? 6063 

dyl 

7 473 7600 

CLA+400 

7 47 4 1370 DISPX, 

TAD ID 

7475 6057 

DXS 

7476 1371 

TAD ADD 

7477 3370 

DCA ID 

7500 ?367 

ISZ COUNT 

7 501 527 4 

JMP 01 SPX 

750? 1363 

TAD YSET 

7503 3367 

DCA COUNT 

7504 0370 

L»CA lb 

7505 1365 

TAD UX 

7506 6053 

DX L 

7 507 7200 

CLA 

7510 1370 DISPY, 

TAD ID 

7511 6067 

dys 

7512 1371 

TAD ADD 

7 513 3370 

DCA ID 

7514 2367 

ISZ COUNT 

751 5 5310 

JMP DISPY 

/ 


7516 1773 

TAD I Np 

7 517 7041 

CIA 

7 520 3367 

DCA COUNT 

7521 1374 

TAD ADRESX 

7 522 3365 

DCA DX 

7523 1375 

TAD ADRESY 

7524 3366 

DCA DY 

7525 1765 LOOP, 

TAD I DX 

7 526 6053 

DXL 

7527 7200 

CLA 

7530 1766 

TAD I DY 

7531 6067 

dys 

7532 7200 

CLA 

7533 2365 

ISZ DX 

7534 ?366 

ISZ DY 

7535 ?367 

ISZ COUNT 

7536 5325 

JMP LOOP 

/ 


7537 6031 FLGCHK, 

KSF 

7540 526? 

JMP START *1 

7 541 6036 

krb 

7 54? 3370 

DC A I D 

7 543 1370 

TAD ID 

7544 137? 

TAD YORIG 

7545 7650 

SNA CLA 

7546 5376 

JMP LOC 

7 547 535? 

JMP .+3 

/ 


7550 7576 DATA, 

7576 

7551 7576 BREAK, 

7 576 


/AC =0 

/USE D.B. REGISTER AS POINTER- 
/ClX,lY) FROM FORTRAN 

/THIS PART DRAWS XY GRID 


/SET Y BUFFER FOR X AXIS 
/GROUP ? CLA 


/X AXIS DONE? 


/SET X BUFFER FOR Y AXIS 


/Y AXIS DONE? 


/DISPLAY C N X , N Y) PAIRS 
/FROM FORTRAN 


/END OF GRAPH? 


/FLAG UP? 

/NO - DISPLAY AGAIN 
/YES - READ TTY SUFFER 


/CTRL/C? (7 57 5=-203) 

/GET MONITOR WITH MINI-BOOTSTRAP 
/LEAVE ROOM FOR DATA BREAK REGISTERS 


7 





7 552 

1 37u> 


TAO ID 

7 553 

1 364 


TAD MCTRLP 

1554 

76 50 


SNA CLA 

7 555 

566 1 


JMP I SI ART 

7 556 

5362 

/ 

PROG* 

JMP START+1 

7 557 

7 461 

start 

7 560 

7661 

TOP* 

START + 200 

7 56 1 

537 7 

P537 7 * 

5377 

7 569 

7633 

X S £ T * 

- 1 45 

7563 

7657 

Y SET* 

-121 

7564 

7 560 

MCTRLP* 

-220 

7 56 5 

0000 

DX* 

0 

7 566 

0000 

DY * 

0 

7367 

0000 

COUNT* 

0 

7 570 

0000 

10 * 

0 

7 57 1 

0012 

AGO* 

1 2 

1512 

7575 

YORiG* 

7 57 5 

7 57 3 

7 57 4 

Np* 

7 57 4 

7 57 4 

0000 

AORhSX* 

0 

7 57 5 

0000 

ADRESY* 

*7576 

0 

7 57 6 

6603 

LOC* 

/ 

6603 



/ 

nxl..-=f,0 53 



OXS=6057 
DYL=6063 
DYS=6067 
DEAL= 661 

5 


/CTRL/P? 

/YES-RETURN TO FORTRAN 
/NO-01 SPLAY AGAIN 


/--NOTE!!!-LOC’N 200 OF DISK 

/MUST RE. 5260!.'!!!! 


8 





